home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1013_Popup < prev    next >
Encoding:
Text File  |  1990-03-23  |  987 b   |  46 lines
  1. %case uses%
  2. %case instance%
  3.     %itemname%:%    %CPopupMenu;
  4. %case create%
  5.     
  6.     New (%itemname%);
  7.     %itemname%.IViewRes ('PopM', %paneID%, enclosure, supervisor);
  8.     %if not labelName = %
  9.         %itemname%.SetLabelText (%labelName%);
  10.         %labelName%.SetFontNumber (0);    {System, Chicago}
  11.     %endif%
  12. %case itemNr%
  13.     %DefineItem%
  14. %case dialog field%
  15.     %fieldname%:%    %integer;
  16. %case init field%
  17.     %fieldname% := 1;
  18. %case auxiliary%
  19.     {----------}
  20.     var
  21.         x%fieldname%:    integer;
  22.     
  23.     {----------}
  24.     Procedure Draw%Itemname% (whichDialog:    DialogPtr;
  25.                           itemNr:        integer);
  26.     Begin
  27.         DrawPopup (itemNr, %popupID%, x%fieldname%);
  28.     End; {Draw%Itemname%}
  29.     
  30. %case filter%
  31. %case set%
  32.     x%Fieldname% := %Fieldname%;
  33.     SetUserItem (%Itemname%, @Draw%Itemname%);
  34. %case hit%
  35.     %itemname%: begin
  36.             %if not labelName = %
  37.                 InvertLabel (%labelName%);
  38.             %endif%
  39.             DoPopup (%itemname%, %popupID%, %fieldname%);
  40.             x%Fieldname% := %fieldname%;
  41.             %if not labelName = %
  42.                 InvertLabel (%labelName%);
  43.             %endif%
  44.         end;
  45. %case finish%
  46.